PC Format (UK) 124/pcfcd124-a.iso/PCF Menu.dxr/00026_go to the frame.ls

Text File | 2001-05-24 | 507 b | 20 lines

on enterFrame
  set the locH of sprite 6 to the locH of sprite 6 - 2.5
  if sprite(5).blend < 100 then
    sprite(5).blend = sprite(5).blend + 2
  end if
  if (sprite(5).blend = 100) and (sprite(6).blend < 100) then
    sprite(6).blend = sprite(6).blend + 2
  end if
  if (the width of sprite 6 < 376) and (the locH of sprite 6 < 57) then
    set the locH of sprite 6 to 57
  end if
  if the locH of sprite 6 < -600 then
    set the locH of sprite 6 to 460
  end if
end

on exitFrame me
  go(the frame)
end